 120  GOSUB 1390
 160  HIMEM: 36000
 170  DIM CX(5): DIM CY(5)
 180  FOR I = 0 TO 7: READ V:Y%(I) = V: NEXT
 190  FOR I = 0 TO 2: FOR J = 0 TO 7: FOR K = 0 TO 7
 200 Y = (Y%(J) + I * 40 + K * 1024) / 256
 210 X% = I * 64 + J * 8 + K
 220  POKE 37000 + X%, INT ((Y -  INT (Y)) * 256)
 230  POKE 37256 + X%, INT (Y)
 240  NEXT : NEXT : NEXT
 250 S = 0
 260  FOR I = 36128 TO 36274: READ A
 270  POKE I,A:S = S + A: NEXT
 310  IF S = 14291 THEN 330
 320  HOME : PRINT "ERROR IN DATA STATEMENTS": END
 330  GOSUB 2310
 370 SEED =  PEEK (78) + 256 *  PEEK (79)
 380  HOME : HGR : HCOLOR= 1
 390  FOR I = 1 TO 110 STEP 2
 400  HPLOT I,0 TO I,170
 410  HPLOT I + 162,0 TO I + 162,170: NEXT
 420  HCOLOR= 0
 430  FOR I = 76 TO 117: HPLOT I,140 TO I,170: NEXT
 440  HCOLOR= 5
 450  HPLOT 115,0 TO 115,191
 460  HPLOT 129,0 TO 129,191
 470  HPLOT 143,0 TO 143,191
 480  HPLOT 157,0 TO 157,191
 490  HPLOT 113,18 TO 117,18
 500  HPLOT 127,18 TO 131,18
 510  HPLOT 141,18 TO 145,18
 520  HPLOT 155,18 TO 159,18
 560  FOR I = 0 TO 4: POKE 36008 + (I * 2),255: NEXT
 570 SC = 0:PX = 19:PY = 140:G = 1
 580 LX = PX:LY = PY:TI = 0
 590 SP = 2:NC = 3:HI = 0
 600  GOSUB 1980
 610  VTAB 24: HTAB 9: PRINT "PRESS ANY KEY TO START"
 620  POKE (49168),0
 630  IF  PEEK (49152) < 128 THEN 630
 640  HOME
 650  GOSUB 1810
 690 TI = TI - 1: FOR I = 0 TO 4
 700 M = 36008 + (I * 2)
 710  IF TI > 0 THEN 870
 720  IF  PEEK (M) <  > 255 THEN 870
 770 AA =  INT (RN * 6) + 1
 780  ON AA GOTO 790,800,810,800,820,800
 790  POKE M,17: GOTO 830
 800  POKE M,PX: GOTO 830
 810  POKE M,19: GOTO 830
 820  POKE M,21
 830  POKE M + 1,248
 840 TI = RN * 3 + 2
 850 I1 = SEED * 8192 / 6.7099547E + 07:RN = I1 -  INT (I1)
 860 SEED =  INT (RN * 6.7099547E + 07)
 870 CY =  PEEK (M + 1)
 880  IF  PEEK (M) = PX AND CY + 22 > PY AND CY + 3 < PY THEN HI = 1
 890 X =  PEEK ( - 16336)
 900  NEXT
 950  CALL 36174
 960  IF HI = 1 THEN  GOSUB 1600
 1000  IF  PEEK (49152) < 128 THEN 1130
 1010  GET I$:A =  ASC (I$)
 1020  IF A <  > 8 THEN 1050
 1030  IF PX < 18 THEN 1130
 1040 PX = PX - 2: GOTO 1130
 1050  IF A <  > 21 THEN 1080
 1060  IF PX > 20 THEN 1130
 1070 PX = PX + 2: GOTO 1130
 1080 S =  VAL (I$): IF S < 1 OR S > 4 THEN 1130
 1090 SP = S
 1130  ON SP GOTO 1190,1230,1140,1170
 1140  IF PY > 16 THEN PY = PY - 2: GOTO 1230
 1150 SC = SC + 1:PY = 140: GOSUB 1710
 1160  GOTO 1230
 1170  IF PY > 16 THEN PY = PY - 4: GOTO 1230
 1180  GOTO 1150
 1190  IF PY < 142 THEN PY = PY + 2
 1230 X =  PEEK ( - 16336)
 1240  POKE 36000,LX: POKE 36001,LY: POKE 36002,2: CALL 36128
 1280  POKE 36000,PX: POKE 36001,PY: POKE 36002,0: CALL 36128
 1290 LX = PX:LY = PY
 1340 X =  PEEK ( - 16336)
 1350  GOTO 690
 1390  TEXT : HOME : VTAB 12
 1400  HTAB 11: PRINT "**            **"
 1410  HTAB 11: PRINT "** CAR DODGER **"
 1420  HTAB 11: PRINT "**            **"
 1430  FOR T = 1 TO 1000: NEXT
 1440  VTAB 11: SPEED= 100
 1450  FOR I = 1 TO 18: HTAB 9 + I: PRINT "*";
 1460 X =  PEEK ( - 16336): NEXT
 1470  FOR I = 12 TO 15: VTAB I: HTAB 27: PRINT "*"
 1480 X =  PEEK ( - 16336): NEXT : VTAB 15
 1490  FOR I = 18 TO 1 STEP  - 1: HTAB 9 + I
 1500  PRINT "*";:X =  PEEK ( - 16336): NEXT
 1510  FOR I = 15 TO 11 STEP  - 1: VTAB I: HTAB 10
 1520  PRINT "*":X =  PEEK ( - 16336)
 1530  NEXT
 1540  VTAB 18: HTAB 3: SPEED= 255
 1550  PRINT "PLEASE WAIT, WHILE WE TUNE IT UP!"
 1560  RETURN
 1600  FOR N = 1 TO 100
 1610 X =  PEEK ( - 16336)
 1620  NEXT
 1630 PY = 140
 1640 NC = NC - 1: IF NC = 0 THEN 1870
 1650 CL = CL + 2
 1660  POKE 36000,CL: POKE 36001,140
 1670  POKE 36002,2: CALL 36128
 1710  FOR I = 0 TO 4
 1720  IF  PEEK (36008 + (I * 2)) = 255 THEN 1760
 1730  POKE 36000, PEEK (36008 + (I * 2))
 1740  POKE 36001, PEEK (36009 + (I * 2))
 1750  POKE 36002,2: CALL 36128
 1760  POKE 36008 + (I * 2),255: NEXT
 1770 HI = 0:TI = 0
 1810  VTAB 23: HTAB 12: PRINT "LAPS COMPLETED= ";SC
 1820  IF SC = LV THEN 2060
 1830  RETURN
 1870  POP : TEXT
 1880  HOME : VTAB 12: HTAB 11
 1890  PRINT "LAPS COMPLETED= ";SC
 1900 X =  PEEK (49168)
 1910  FOR T = 1 TO 1000
 1920  IF  PEEK (49152) > 128 THEN 1900
 1930  GOTO 330
 1980  FOR CL = 14 TO 12 STEP  - 2
 1990  POKE 36000,CL: POKE 36001,140
 2000  POKE 36002,0: CALL 36128
 2010  NEXT
 2020  RETURN
 2060  HGR
 2070  HCOLOR= 3
 2080  FOR X = 0 TO 7
 2090  FOR I = 0 TO 10 STEP 2
 2100 J = I * 8 + 86 + X
 2110  HPLOT J,40 TO J,47
 2120  HPLOT J + 8,48 TO J + 8,55
 2130  HPLOT J,56 TO J,63
 2140  HPLOT J + 8,64 TO J + 8,71
 2150  HPLOT J,72 TO J,79
 2160  HPLOT J + 8,80 TO J + 8,87
 2170  HPLOT J,88 TO J,95
 2180  HPLOT J + 8,96 TO J + 8,103
 2190  NEXT : NEXT
 2200  HPLOT 86,40 TO 86,103 TO 182,103 TO 182,40 TO 86,40
 2240  HOME : FOR BELL = 1 TO 5: PRINT  CHR$ (7): NEXT BELL
 2250  VTAB 23: HTAB 12: PRINT "CONGRATULATIONS!"
 2260  PRINT : HTAB 8: PRINT "YOU'VE COMPLETED LEVEL ";LV
 2270  FOR N = 1 TO 6000: NEXT : GOTO 1870
 2310  VTAB 18: HTAB 2
 2320  PRINT " PLEASE SELECT YOUR DRIVING SKILL."
 2330  PRINT : PRINT "(THE NUMBER OF LAPS TO ATTEMPT, 1-10)"
 2340  FOR SO = 1 TO 7: PRINT : FOR TIME = 1 TO 70
 2350  NEXT TIME:X =  PEEK ( - 16336): NEXT SO
 2360  VTAB 24: HTAB 3: PRINT "ENTERING 'E' WILL END THE GAME."
 2370  VTAB 13: HTAB 36: INPUT " ";I$
 2380  IF I$ = "E" THEN 2440
 2390 LV =  VAL (I$): IF LV < 1 OR LV > 10 THEN  HOME : GOTO 2310
 2400  RETURN
 2440  TEXT : HOME : POP : END
 2480  DATA  8192,8320,8448,8576,8704,8832,8960,9088
 2490  DATA  173,162,140,10,10
 2500  DATA  10,10,170,172
 2510  DATA  161,140,238,161
 2520  DATA  140,192,191,176
 2530  DATA  21,185,136,144
 2540  DATA  141,69,141,185
 2550  DATA  136,145,141,70
 2560  DATA  141,172,160,140
 2570  DATA  189,131,141,153
 2580  DATA  0,96,232,138
 2590  DATA  41,15,208,219
 2600  DATA  96,162,8,189
 2610  DATA  168,140,48,38
 2620  DATA  141,160,140,189
 2630  DATA  169,140,24,105
 2640  DATA  8,157,169,140
 2650  DATA  141,161,140,201
 2660  DATA  155,144,5,169
 2670  DATA  255,157,168,140
 2680  DATA  169,1,141,162
 2690  DATA  140,142,163,140
 2700  DATA  32,32,141,174
 2710  DATA  163,140,44,48
 2720  DATA  192,202,202,16
 2730  DATA  206,96,0,0
 2740  DATA  0,8,28,93
 2750  DATA  127,93,28,93
 2760  DATA  127,93,28,0
 2770  DATA  0,0,0,0
 2780  DATA  0,0,0,0
 2790  DATA  0,0,93,127
 2800  DATA  93,28,85,127
 2810  DATA  93,8,0,0
 2820  DATA  0,0,0,0
 2830  DATA  0,0,0,0
 2840  DATA  0,0,0,0,0,0
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